home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm5 / awbmltym.lha / AWEBmailtoYAM / scripts / StartAWEB.rexx < prev   
OS/2 REXX Batch file  |  1996-09-27  |  595b  |  27 lines
  1. /* AWEBmailtoYAM V2 supportscript  ©1996 ALeX Kazik*/
  2. OPTIONS RESULTS
  3. PARSE ARG awebdir
  4.  
  5. IF ~SHOW('P','AWEB.1') THEN DO  
  6.     CALL OPEN(1,'T:StartAWEB',w)
  7.     CALL WRITELN(1,"stack 10000")
  8.     CALL WRITELN(1,"cd "||awebdir)
  9.     CALL WRITELN(1,"run <> NIL: AWeb")
  10.     CALL CLOSE(1)
  11.     ADDRESS COMMAND 'execute <>NIL: T:StartAWEB'
  12.     ADDRESS COMMAND 'delete <>NIL: T:StartAWEB'
  13.     i = 15
  14.     DO UNTIL (SHOW('P','AWEB.1')) | (i=0)
  15.         ADDRESS COMMAND 'Wait 2'
  16.         i = i - 1
  17.     END
  18.     IF SHOW('P','AWEB.1') THEN DO  
  19.         ADDRESS 'AWEB.1'
  20.         GET SCREEN
  21.         if (RESULT == 'Workbench') then
  22.             WINDOWTOBACK
  23.         else
  24.             SCREENTOBACK
  25.     END
  26. END
  27.